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One difficulty in the use of the Ada language in interactive programming is 
the inability to specify serial CRT terminal screen functions when writing the user 
interface. This thesis presents a solution in the form of an Ada package for 
terminal IO that provides the programmer with Ada language function calls that 
perform many of the serial CRT screen control functions automatically available 
in other languages. A specification of the package TERM IO is presented. An 
implementation of the package for the VT-100 terminal and an example of the 


use of TERM IO are presented. 
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I. INTRODUCTION 


A. BACKGROUND 

The ability to understand and use a computer software product depends 
heavily on the quality of the user interface. The user interface is the vehicle of 
conversation between the programmer and the user. The programmer wants to 
provide a clear. easy to use interface so that his work is favorably evaluated and 
used. The user wants an interface that he can understand and use easily. 
Programmers employ a variety of techniques in the design of the user interface. 
The techniques used depend greatly on the type of hardware on which the the 
program runs and the capability of the language used by the programmer. Many 
languages provide a wide variety of functions that control the terminal interaction 
process While other languages are sparsely equipped. Often the amount of effort 
that is required of the programmer determines the quality of the user interface 
that he produces. 

Thesis students at the Naval Postgraduate School (NPS), who are sponsored 
by the Naval Weapons Center, China Lake (NWC) and who are programming in 
Ada have experienced difficulties in controlling the output to a serial CRT 
terminal screen in the Ada language. These problems are manifested in the areas 


of cumbersome user interface modules and non-portable interface modules. These 


problem areas at first seem to be separate but both are symptoms of the lack of 
terminal interface capability in the Ada language. 
1. User Interface Modules 

The user interface of the Ada programs being developed today at the 
Naval Postgraduate School are cumbersome, hard to use, and do not fully utilize 
the capabilities of the user’s terminal. Programs such as AdaMeasure [Ref. 1] 
were written using the standard Ada packages text _io and serial io which were 
designed to be used on teletype terminals. The program is usually run from a 
VT-100 terminal with much more capability. The user is not able to use the 
capabilities of his equipment to operate the program as easily. 

2. Lack of Portability 

Programmers who try to use the capability of the terminal to improve 
their program’s interface often sacrifice portability. The AdaMeasure program 
discussed above uses a single VT-100 control sequence to clear the terminal 
screen, making the program non-portable. A programmer wishing to adapt the 
program to a different terminal type is required to research the method of clearing 
the screen and adapt the control sequence in the program. 

This thesis examines some of the problems of writing a good interface in 
Ada and proposes a solution by providing a package of interface procedures. The 
programmer can use this package to better exploit the capabilities of the serial 


CRT terminal and enhance the quality of the user interface that he designs. 


B. ORGANIZATION 

Chapter Two describes the styles of user interfaces that are used today. The 
effect of the hardware capabilities on the choice of the user interface style is 
discussed. 

Chapter Three discusses the design of the Ada language and the reasons for 
the lack of user interface procedures. The experiences of students programming in 
Ada and the need for a more sophisticated interface package is presented. 

Chapter Four discusses the capabilities available in the common terminal 
types and how other popular languages have used the capabilities of the serial 
CRT terminal. An examination of these features helps to determine what 
procedures might be useful in an Ada interface package. 

Chapter Five discusses the issues considered in the design of an improved 
interface package. The design of the TERM IO interface package is presented 
and its capabilities discussed. 

Chapter Six discusses the implementation of the user interface package body. 
An application of the package of interface procedures is demonstrated using a 
sample menu producing procedure. 

Chapter Seven presents a summary of the work discussed and 
recommendations for the use of the TERM IO package and for future work in 
this area. 

Appendix A lists the complete specification of the package TERM IO. 


Appendix B contains a programmers guide to the use of the TERM IO package. 
9 


Appendix C lists the package body of the TERM IO package for the VT - 100 
terminal. Appendix D presents a summary of serial CRT control codes for several 
terminal types. Appendix E gives examples of the use of the TERM 10 package 
to improve the interface of an existing Ada program, the AdaMeasure program 


written by thesis students at the Naval Postgraduate School. 
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Il, THE USER INTERFACE 


A. INTRODUCTION 

The purpose of the user interface is to bridge the conceptual gap between the 
users understanding of the computing process and the program in execution. The 
user 1s not concerned with the hardware implementation details, only with the 
functional process of the program that is running. 

The capability and functions of the user interface vary greatly from program 
to program. Some variation in capability is due to the decisions of the software 
designers. Many differences, however, are due to the constraints imposed by the 


capabilities of the supporting terminal. 


B. UYFres OF TERMINALS 

Terminal hardware configurations are different for every system. The 
capabilities of the terminal depend on the level of sophistication of its hardware. 
These capabilities vary from the basics of a teletype printer to the latest design of 
graphics terminal. The common terminal types in use today are the teletype, 
serial CRT, character mapped CRT, and the bit mapped CRT. 

1. Teletype Terminal 

The teletype terminal is the first widely used terminal. Many are still in 


use today. In this terminal the computer output is sent one character at a time in 


eE 


serial fashion from the computer to be printed on the paper of a printer which sits 
behind a keyboard. The input is taken from the keyboard and is usually echoed 
on the paper. The user may address the memory by line only. The teletype has 
the least capability of any terminal type. 
UP Seriarer © 

The serial CRT terminal is an improved version of the teletype terminal. 
The paper and printer have been replaced in this system by a CRT screen that 
displays the output printed by the computer. This terminal has several 
advantages over the teletype including speed and paper saving. The only 
capability that the serial CRT terminal adds is that it 1s cursor addressable. The 
computer can position the cursor to any position on the CRT screen to print the 
next character. This feature can be used to format the screen output and produce 
simple shapes and graphs. The serial CRT is probably the most common 
terminal in use today. The input device has not changed from the teletype, it is 
still the keyboard input. 

The terminal controls what is displayed on the CRT screen by storing the 
screen contents in an array corresponding to the screen locations on the screen. A 
common size for this array is 24 rows by 80 columns. Each location holds 
information that indicates the character to be displayed at its screen position. 
Also stored is information such as highlighting and character and background 
shade. Input to the terminal is received just as in the teletype terminal. The 


stream of serial output from the computer is written to the screen buffer. The 
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video processor reads the screen buffer and uses a character generator to produce 
the characters on the screen. The video processor typically does this 30 times each 
second. In the serial CRT the screen buffer is not accessable to the program. 
3. Character Memory Mapped CRT 
In the character memory mapped CRT terminal, the method of storing 
the information to be displayed on the screen has changed to provide access to the 
character stored at each screen location. The output is the same as for the serial 
CRT. The contents of the memory storage locations in the screen buffer can be 
read and used by the program. The video processor works the same as for the 
serial CRT. 
4. Bit Memory Mapped CRT 
In the bit memory mapped CRT terminal the screen buffer has been 
expanded to use a memory location for each pixel location on the screen. A 
typical screen size 1024 by 768 pixels. This terminal is pixel addressable. This 
allows the drawing of more complex graphics than is possible with character based 
systems. In this terminal, the video processor reads the memory location 
corresponding to each pixel to determine the shade. The character generator is no 
longer used in the screen refresh cycle. Pointing devices such as a mouse or track 


ball are now included as input devices as well. 


C. TYPES OF INTERFAGES 

General purpose interfaces today are divided into two main categories, 
hierarchical interfaces and event driven interfaces. 

1. Hierarchical Interface 

The hierarchical interface 1s commonly used with the teletype, serial CRT 
and character mapped CRT terminals. Systems designed using the hierarchical 
interface are usually menu driven. Using this type of system, the user makes a 
selection from each of a series of menus until reaching a functional level where a 
process is performed. After the process is completed, control of the program is be 
returned to the top or ‘main’ menu or to the last menu reached before the process 
execution began. 

The hierarchy of the menu selections reflects the structure of the 
program. At each menu level. the user restricts his view of the program to the 
options left under that selection. If, after a process is performed, the user desires 
to run another process, the user must retrace the menu tree to reach the menu 
selection for the new process. A user can experience problems in working through 
several menu levels and remembering what options are available from any of the 
menu levels. 

2. Event Driven Interface 

Event driven systems usually use the bit mapped CRT terminal with a 

pointing device. The user can access most of the program functions directly from 


the terminal screen. 
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Functions are selected with the pointing device from menus that are 
always visible to the user. From almost every function, the user returns to the 
main screen. The prompt for the available functions is visible at all times so the 
user has less difficulty remembering what functions are available and how to 
access them. 

This thesis concentrates on the user interface requirements of the 
hierarchical interfaces using serial CRT terminals. The systems currently 
available at NPS and NWC for Ada programming are all serial CRT devices. 


Almost all of them are VT-100’s or VT-100 emulators. 
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Ill. THE ADA USER INTERFACE 


The Ada language is designed for use in embedded systems software. 
Interfaces for embedded systems tend to be specialized and hardware specific. 
Little effort has been made to develop an interface for output devices other than 
the serial (embedded) device and the teletype terminal. As a result, programmers 
who want to write in Ada cannot use terminal interaction and screen formating 
available on the serial CRT terminal without writing their own interface 
procedures. 

Most of the current Ada literature concerns the design of software engineering 
environments for the language. Many of these systems are being designed and 
written but none has specifically addressed the problem of using terminals with 
more capability than the original teletype. It is assumed that each application will 
write its own interface. 

The Preliminary System Specification of the Software Technology for 
Adaptable Reliable Systems - Software Engineering Environmets (STARS-SEE) 
program specifies that a standard user interface at the end product level will be 
used. The Interface Control Working Group (ICWG) is responsible for the 
oversight and control of system and software interfaces|Ref. 2]. The preliminary 
specification does not address the variations of terminal types but only says that 
the interface is to be consistent. 
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The shortcomings of the TEXT IO package were the subject of a paper by 
J.P. Rosen presented at the 1984 IEEE Ada Applications and Environments 
Conference |Ref. 3]. This paper describes typical programming problems with 
TEXT IO. many of which are the same problems experienced by programmers at 
NPS. Rosen offers several programming techniques to better use the facilities in 
TEXT IO. Rosen takes the position that a special IO package is not necessary to 
write a good terminal interface in Ada. He does not address the problems of using 
screen graphics or different terminal configurations. 

While it is likely that any large commercial application written in Ada would 
include its own terminal IO package, the use of Ada in the academic and research 
environments would be enhanced by the availablility of a simple, easy to use. 
portable interface package that supported the serial CRT terminal. 

Students at the Naval Postgraduate School are currently using Ada for 
general purpose projects other than embedded systems. Many of these projects use 
terminal interface and interactive procedures. These students and _ other 
programmers who want to use Ada for programs with terminal interface 
procedures face several difficult problems. Methods of performing many common 
screen functions such as clearing the screen or positioning the cursor are not 
entirely standardized. Students who want to improve the usability and 
appearance of their work have been forced to include terminal specific character 


codes and functions in their programs. The result is that each student is spending 
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time researching the correct character codes and is producing programs that are 
not portable. 

The solution for these programmers is the availability of a package of 
terminal interface procedures that a programmer can use for terminal interaction. 
The objective of the terminal interface package is to provide the Ada programmer 
with the enhanced terminal interface functions required to exploit the capabilities 
of the serial CRT terminal. The programmer can use these functions without 
having to rewrite them for each program. The result will be more efficient, 
standardized programs. 

The system should provide an interface between the program and the 
terminal device so that the programmer can specify the terminal functions by 
using standard procedure calls in his programs in the same way that text io and 
serial io procedures are called. The call will remain the same. but the 


implementation will depend on the terminal type. 
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IV. SURVEY OF EXISTING SYSTEMS 


The Ada language, other language interfaces. and terminal manuals were 
studied to determine how user communications in the Ada language could be 
improved. Several existing commercial software language packages have features 
that fully utilize the capabilities of the serial CRT. These languages are 
implemented for the particular language on a particular mainframe or 
microcomputer. They indicate what features have been successfully implemented 
and what capabilities an Ada programmer is likely to utilize. Programmer’s 
guides for the different terminal types indicate what functions can be 
implemented for each terminal type and the method to be used. By comparing 
the functions available on the terminals, the functions provided in other systems. 
and the experience of Ada programmers. a common set of useful functions that a 


programmer is likely to use can be chosen. 


A. THE ADA LANGUAGE 

Ada is designed to allow users to tailor the language to their needs by writing 
packages that can be used in many programs. The designers of the language 
purposely left out many of the terminal interface functions to maintain the overall 
generality of the language|Ref. 4,p.252]. Implementation of these functions has 


been left up to the user. 


no 


The standard text io Ada package allows the programmer some, but not 
much, control of the screen output. Some of the procedures specified include: line 
and col that return the line or the column of the present cursor position, set line 
and set col that change the cursor position, and a new page function that 
advances the page|Ref. 5]. These procedures are designed to control the output of 
the teletype terminal and do not provide the level of access to the operating 
system functions that is required to control the output to a serial CRT terminal. 
In order to produce the terminal screen output, the programmer must specify the 
character to be printed at each screen location. In such a case, the CRT terminal 


screen is no more useful than the teletype printer paper it replaced. 


B. OTHER LANGUAGE SYSTEMS 

Languages that are designed to run on a particular system can provide a 
fairly extensive set of terminal control functions because the hardware 
configuration is known and portability is not an issue. This is particularly true of 
systems that run on microcomputers. 

One such microcomputer language is Turbo Pascal. Turbo Pascal provides a 
set of Pascal procedures that the programmer can use to control the screen 
output. These procedures allow the programmer to clear a line of text. clear the 
screen. position the cursor, and adjust screen brightness. Turbo Pascal uses the 
ANSI escape codes and operating system calls of the host machine to accomplish 


these functions. [Ref. 6] 
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C. TERMINAL DOCUMENTATION 

Documentation such as the VT-100 User Guide is available for most terminal 
types. This documentation provides the user with information about the 
terminal's capabilities and functions. The VT-100 User Guide summarizes the 
protocol of over fifty terminal features (Ref. 7,p.43]. Norton’s programmer’s guide 
to the IBM PC is an excellent source of information for users of IBM and MS- 
DOS microcomputers {Ref. 8]. The challenge to the programmer is to incorporate 
the terminal functions into the language that he is writing in, in this case Ada. 
The difficulty to the programmer is the need to devote significant time and effort 
to the ancillary problem of the user interface. 

An examination of the code written by programmers for their interfaces 
illustrated the problems experienced by those programmers and what they would 
likely do if provided with a set of user interface procedures. Neider and Fairbanks 
have written their interface on the level of the teletype terminal without making 
use of the capabilities of the terminal [Ref. 1]. This is a “lowest common 
denominator approach. This method is hard on the user who may be used to 
working on other more advanced or friendly systems. such as Unix. Other 
programmers have spent hours trying to reproduce a function that they know is 
possible to do in another language. An excellent example of this is a keyboard 
polling function, that is a function in Turbo Pascal [Ref. 6,p.143], and in the °C’ 
language is the ‘getchar function. A keyboard polling function is not provided in 


Ada. 


mk 


A common method of screen control seen in serial CRT terminals is the use of 
special character codes such as the ANSI code [Ref. 7]. The put function in 
text io package is capable of writing these control codes to the terminal screen. 
By using the standard functions in the text io package and the ANSI codes for 
the host machine, a useful set of terminal user interface procedures can be 


implemented. 
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Momo P TIONS 

By looking at the existing software and discussing the needs with 
programmers, the need for a basic set of terminal interface procedures has been 
established. The next step is to design an implementation of these features that is 
useful to the programmer and allows the programmer to write terminal interface 
functions easily. 

Three alternatives were considered for the implementation of the terminal 
interface package. The low end alternative is to distribute a table of terminal 
functions and control codes to programmers to include in their programs. This 
method has several disadvantages. It requires strictly enforced programming 
standards to prevent giving the programmers too much discretion over how to use 
the control codes in their programs, promoting the non-portablity of code. It 
would defeat the organization’s goal of portability and maintainability and send 
the ‘wrong signals’ to the programmers. 

The middle alternative is to develop an Ada package that implements a set of 
functions that are common to many terminal types and restrict the programmers 
to using the package to perform terminal interaction. This will allow the code 
that is produced to be portable to any terminal type that is supported by a 
version of the terminal interface package. This method achieves the most 
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portability and standardization but it does not fully utilize the capabilities of each 
terminal type. 

The high end alternative is to write a separate package for each terminal type 
that provides a full implementation of the capabilities of that terminal. This 
allows the best utilization of the terminal capabilities, but it has many of the 
same disadvantages as the low end option. Code will not be as portable. There 
will be no standardization, and more problems in maintenance of a larger set of 
programs. 

Since many of the processes to be implemented are accomplished through the 
use of character sequences that vary from terminal type to terminal type, an Ada 
package can be used to declare the constants for a terminal type. The same set of 
procedures can be used, but with a different set of constants for each terminal 
type supported. This approach allows a package to be designed for any function 
that is performed by writing a special character sequence to the screen. 

The choice of terminal types for implementation of the TERM IO package 
was based largely on the types of terminals at the Naval Postgraduate School and 
the Naval Weapons Center, China Lake. The most common terminal is the VT - 
100 terminal. The VT-100, an ANSI standard terminal, is the terminal used for 
current Ada projects. Most serial CRT terminals in use today can emulate the 
ANSI standard terminal to some degree. 

The TERM IO Package provides much more screen support than keyboard 


support. Keyboard functions are much more hardware oriented than the screen 
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functions and are less likely to be portable. The interface between the program 
and the screen functions is well defined by the use of character strings as terminal 
commands while the interface between the program and the keyboard function 1s 
not as well defined. The terminal screen usually accepts information in a 
character format but the keyboard can send information in character, integer, or 
other data format. The program must allow for different data types if keyboard 
polling is implemented extensively. 

The terminal assumed for the TERM IO package provides a terminal CRT 
screen of 80 columns by 24 rows. support for the basic ASCII character set, and a 
graphics character set extension that allows the graphics characters to be declared 
as character constants in Ada. Terminal control codes are available to perform the 
functions of cursor movement. screen and line clearing, reverse video and bold 
face printing. and graphics character printing. Other terminal features such as 


user controlled cursor keys, numeric keypads, and special function keys are not 


used in the TERM IO package. 


B. THE DESIGN 

The package TERM IO includes screen handling procedures that are not 
available in any of the standard Ada packages. These procedures allow the 
programmer to perform screen control functions in the Ada language. The 
package specification has been designed to be portable among many terminal 


types. provided that the package body has been modified for the terminal type in 
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use. The complete specification of the package TERM IO is listed in Appendix A. 
Portions of the package declaration are reproduced and described below. 
Appendix B provides a programmer's guide with more discussion and examples of 
the use of the TERM IO package. 

with TEXT IO; 

ser heen ey 

package TERM 10 is 

type SWITCHTYPE is (ON,OFF); 


SWITCH = SWITCH TE. 


The package TERM IO uses the input and output procedures contained in 
the standard Ada package TEXT IO. TEXT IO should always be available in 
the Ada programming environment. The type SWITCHTYPE is an enumerated 
type of (ON.OFF). The variable SWITCH is a status variable used by of the text 
printed on the screen. 

1. Cursor Control 

The cursor control procedures can be used to position the cursor 
anywhere on the terminal screen. These are: 
procedure MOVE CURSOR HOME; 
procedure MOVE CURSOR UP(NUM: in integer); 
procedure MOVE CURSOR DN(NUM: in integer); 
procedure MOVE CURSOR RT(NUM : in integer); 
procedure MOVE CURSOR LT(NUM : in integer); 


procedure SET CURSOR POS(COLM,ROW : in integer); 
procedure GET CURSOR POS(COLM,ROW : out positive count); 
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In a program, a procedure call of MOVE CURSOR LT(3); moves the cursor 
three spaces to the left on the terminal screen. 
2. Screen and Line Clearing 
Procedures to clear the screen and to clear individual lines have been 


included. These procedures are called without parameters. These are: 


procedure CLEAR SCREEN; 

procedure CLEAR LINE; 

procedure CLEAR CURSOR TO EOL; 
Poo eciceno tsi Eeeiclears sine line the cursor is on. Procedure 
CLEAR CURSOR TO EOL clears the portion of the line to the right of the 
cursor. Procedure CLEAR SCREEN clears the screen but does not change the 
cursor position. 

3. Keyboard Polling 
Keyboard polling functions are used to get a single character from the 

keyboard, usually as a response from the user. These functions are called without 
parameters. They are: 

function GET KEY return character; 

function KEYPRESSED return boolean; 
The function GET KEY can be used to get a response such as a menu selection. 


The function KEYPRESSED can be used to have the user signal readiness to 


continue. 
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4. Reverse Video and Boldface 
Reverse video and boldface printing can be obtained using these 
procedures. All are called without parameters. They are: 


procedure SET REVERSE(SWITCH : in SWITCHTYPE); 

procedure GET REVERSE STATUS(SMW1ITCEH = in Sil Chi Pi, 
procedure SET _BOLD(SWITCH : in SWITCHD YEE): 

procedure GET BOLD STATUS(SWITCH : in SWITCHTYPE); 


The variable type SWITCHTYPE is an enumerated type of (ON,OFF). A 
procedure call of SET REVERSE(ON): causes all printable characters printed on 
the terminal screen to appear in reverse video until a procedure call of 
SET REVERSE(OFF); returns the output to to the normal mode. Bold face 
print works the same way. 
5. Graphics 

Simple graphics characters can be used to make a display better looking 
and more understandable. Primitive characters have been provided as well as 
several procedures. These procedures are: 


procedure PUT TOP LT CORNER: 

procedure PUT TOP RT CORNER: 

procedure PUT BOT LT CORNER: 

procedure PUT BOT RT CORNER: 

procedure PUT ~HORZ BAR: 

procedure PUT _VERT BAR: 

procedure PUT CROSS: 

procedure PUT ROR sien 

procedure PUT BOT TEE: 

procedure PUT LT TEE: 

procedure PUT RT TEE: 

procedure DRAW _BOX(COLM, ROW : in integer): 
procedure DRAW HORZ LINE(LENGTH : in integer): 
procedure DR AW VERT. _LINE(LENGTH : in integer); 
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Procedure DRAW BOX draws a box centered on the terminal screen with the 
upper left corner at position (COLM,ROW). The graphics character procedures 
PUT TOP LT CORNER through PUT RT TEE print a single graphics 
character to the screen and leave the cursor on the position of the character just 
printed. DRAW HORZ LINE and DRAW VERT LINE draw a line from the 
current cursor postition of of the length specified. A horizontal line is drawn from 
the cursor position to the right. A vertical line is drawn from the cursor position 


up the screen. 
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VI. IMPLEMENTATION 


The package body of TERM IO implements the portable TERM IO package 
specification. The goal in writing the package body was to produce a package 
body for one terminal type that could be easily modified for other terminals. 
Terminal specific items were declared as constants or separate procedures that 
could be easily modified. The complete package body for TERM IO 


implemented for the VT - 100 terminal is contained in Appendix C. 


A. THE TERM IO PACKAGE 

The major part of the TERM IO package body is portable. The few parts 
that are not deal with specific hardware of the terminal. These are the control 
codes and the method of keyboard input modes available in the terminal. 

1. Contro] Codes 

Control Codes are character sequences that are interpreted by the 

terminal as commands. These codes are used to perform terminal functions such 
as clearing the screen and moving the cursor. Control codes vary from terminal 
to terminal and are not compatible. There is an ANSI standard for terminal 
control codes, however, which many terminals are capable of emulating. The 
control codes for two common terminals, the ANSI standard and the VT - 52 


terminal, are contained in Appendix D. 
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Portability is achieved by restricting the programmer from direct access 
to these control codes. Instead. the codes are used by the procedures available to 
the programmer through the package declaration. The control codes for the 
terminal are declared at the heac of the package body. These codes are declared 
as string constants. The siring constant can be referenced by name to avoid 
problems with embedded constants. The constants were used in these procedures 
instead of the actual code strings to enhance the portability of the package body. 

2. Kevboard Input 

When writing interactive programs. it 1s often required that the user 
select a menu choice or press any kev to continue reading an information screen. 
These user interactions are usually done with a ‘keypress routine that detects 
when a kev has been pressed on the keyboard. In Turbo Pascal. this function is 
called “KevPressed’|Ref. 6. p.143.. This feature allows a user to move quickly 
through a hierarchy of menus with as few keystrokes as possible. Unfortunaiely. 
there is no kevpress routine in the Ada language. 

The keyboard input funciions in the standard TEXT IO package are the 
‘get functions. These functions are used to get character. string. and number 
input from the user. These inputs are required by the Ada language to end in a 
terminator character. an end of line. or end of file. The Ada get procedures 
interpret the carriage return as the end of line or file. This means that with the 
siandard get procedures the user must hit a carriage return after each menu 


selection. Since most other menu systems do not require these carriage returns. 
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the carriage return action becomes annoying to the user. This is important 
enough to attempt an implementation of a keypress function for the TERM IO 
package. 

The method of getting input from the keyboard is different for each 
implementation. Various methods of systern dependent keyboard polling can be 
developed. The poller could be a system call or an interupt. It could be a 
pragma, a compiler interface command, to a language such as ’C’ that already has 
a polling function. In the package TERM IO, the function KEYPOLLER is not 
fully implemented. Instead, it has been stubbed with a a simple Ada ‘get’ 
procedure. The package can be used in this form or the ‘get’ procedure can be 
replaced with a hardware specific keyboard polling routine. Each system can 
install their own keyboard poller routine if it is desired. If the KEYPOLLER 
function is used with the get procedure. carriage returns are required. 

The method of keyboard polling has been hidden in the private procedure 
KEYPOLLER. The programmer cannot use keypoller directly. It is called from 
the functions GET KEY and KEYPRESSED. 

The procedure GET CURSOR POS is designed to read the cursor 
position maintained by the terminal and return the row and column to the 
program. This function was not implemented due to problems involved in 
translating the row and column information that is provided by the terminal into 
an Ada variable. This procedure can only be implemented by a hardware specific 


call to the terminal. 
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B. TERMINALS 
While the package declaration of the package TERM IO is portable, the 
implementation of the package body is specific for each terminal type supported. 
The specifics of the implementation are hidden from the programmer in the 
package body. The programmer is aware of only the declaration, or calling 
statement for the procedures conatained in the package body. An implementation 
has been written for the Digital Equiptment Corporation VT -100 terminal. This 
tvpe has been chosen because it is the most common and almost all comercial 
terminals are capable of emulating it. Modifying the package to use on another 
terminal type can be done with changes to the package body. The complete 
package body for TERM{ IO implemented for the VT -100 terminal is contained 
in Appendix C. 
1. The ANSI Terminal Interface 

The VT - 100 terminal uses the control sequences established by the 
American National Standards Institute for controlling serial terminal screen 
output. These sequences all begin with the ‘escape’ character, 033H, and thus are 
known as ‘escape codes. The escape character can be written in Ada as 
“ASCIIESC. A summary of the escape codes for the ANSI terminal are 
contained in appendix D. An MS - DOS microcomputer can use the ANSI codes 
with the device driver ANSI.SYS configuration. 

To use the escape code sequences in Ada the codes must be declared as 


string constants. These string constants can be manipulated as any other strings 


od 


are in Ada, including writing them out with a put procedure from the TEXT IO 
package. When the terminal receives the output string, 1t interprets it as a screen 
command which is executed. The string is not printed on the screen. An example 


of such a string declaration 1s 


UPCRSR : constant string := (ASCILESC,7|’1’,’A’); 


This string causes the cursor to be moved up one line. The complete list of string 
declarations for the package body of TERM IO is contained in Appendix C. 
2. The VT-52 Interface 

Another common terminal type is the Digital Equipment Corporation VT 
- 52 terminal. The VT-52 terminal also uses control sequences to control the 
screen. These sequences are in a different format and are not compatable with the 
ANSI sequences. These sequences can be written in Ada as string constants just 
as the ANSI sequences can be. The package body for the VT-52 interface would 
be the same as the package body for the ANSI interface except for the different 
declaration of the string constants. An example of a string declaration for the VT 


=—52 termuinaieics 


UPCRSR : constant string := (ASCIIESC, A’); 


This string would cause the cursor to be moved up one line. 
A complete implementation of the package body could not be made for 


the VT - 52 because the VT - 52 does not provide all of the control functions 
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provided by the ANSI standard terminal. A partial implementation with only the 
common functions of the terminals is possible for use on the VT - 52. 
3. Other Terminal Types 

The TERM IO can be adapted to other serial CRT terminal types by 
substituting the correct control codes for the new terminal type. If the terminal 
type uses a method other than control sequences to control screen functions, then 
revision of the individual procedures of the TERM [IO package body will be 
required. This revision is likely to result in a very hardware specific package body. 
It should still result in a package body that completely implements the TERM IO 


package specification. 
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VII. CONCLUSIONS 


As use of the Ada language becomes more common and more programmers 
are trained in its use there will be more efforts to utilize the portability and code 
reusability features of Ada. The TERM IO package is one example of the use of 
these capabilities. The use of the Ada language to allow programmers to write 
programs that can be reused in a variety of different situations is a major strength 


of Ada and should be exploited whenever possible. 


A. REVIEW 

The need for an Ada package to provide programmers with procedures to 
control the serial CRT terminal was indicated by the problems experienced with 
the standard Ada package TEXT IO. The package TERM IO was developed to 
meet this need. The goals sought in the design of the TERM IO package were 
reusability, portability, and ease of application. These goals were met through 
the use of the constructs of the Ada language that allowed the terminal specific 
items of the program to be hidden from programmer’s using the package. 

This thesis has proposed a package specification for an Ada terminal interface 
package that is reusable and portable. An implementation of the features of the 


package and the method for implementing the package on other terminal types 
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has been presented. This package can be used by other programmers to design 
better user interfaces faster and easier. 

The package TERM IO was written to be used in the same manner as the 
standard package TEXT IO and can be thought of in the same way by the 
programmer. The TERM IO package provided the programmer with cursor 
control capability to format screen output. with parameter control procedures to 
change the characteristics of the output text, with input procedures to poll the 
user for input. and with simple character graphics capabilities to improve the 


appearance of the screen output. 


B. RECOMMENDATIONS 

The package TERM IO should be provided to programmers learning Ada. It 
can serve as a useful tool for program development and as an example of a 
reusable package. Many of the problems experienced by the programmer who is 
new to Ada but has experience in other languages result from the inadequacies of 
the TEXT IO package. A programmer who feels that he is always ‘reinventing 
the wheel’ to do screen output might well find a use for TERM IO. 

The TERM IO package was designed for use with the serial CRT terminal. 
As Ada applications become available for bit mapped graphics terminals, there 
will be a need for a terminal interface package that provides a complete set of 
graphics functions for the Ada language. This area should be considered for 


further thesis research. 
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This theses was undertaken with the sponsorship of the NWC Missile 
Software Group as part of a continuing program. The TERM IO package has 
been applied to improve the interface capabilities of other past and present thesis 
efforts and it will be available for future efforts. 

Work on this and other theses in Ada for NWC has been made difficult by 
the lack of an Ada compiler for the Computer Science Department computer at 
the Naval Postgraduate School. Currently the school’s only capability in Ada is 
the Janus/Ada partial implementation in use on microcomputers at the school. 
Working in the full Ada language required the use of the Telnet or Arpanet 
system to work on the China Lake computer system. under a Missile Software 
Group account. With the increased use of the Ada language for both thesis 
research and class projects at the Naval Postgraduate School, the acquisition of an 
Ada compiler should be considered. 

The user interface is an important part of the overall programming effort. 
Efforts such as TERM [IO make the writing of the user interface faster and easier 
for the programmer. The hope is that the programmer will make use of the 


TERM IO package to produce a well designed and easy to use interface. 
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APPENDIX A 


TERM 10 PACKAGE DECLARATION 


KEKE KK KEKE KEK KKK EK KR KKK KEK KEK KE KK KKK KKK KKK KK KKK KKK KK KK KKK KEE 


-- TITLE: ADA TERMINAL INTERFACE 
-- MODULE NAME: TERM IO DECLARATIONS 


-- Date created: 04 MAR 8&7 
-- Last modified: 15 MAY 87 


-- AUTHOR: LT Anthony J. Keough 
-- DESCRIPTION: This package provides procedures to 
-- improve the terminal interface. It should be 


-- used with the package TEXT IO to provide a 


-- full set of user interaction procedures. 


kusesk St kok) ke koe ee Stee ie See oe kee ok) ok ok OR ke oe Se Sek se ee oe) ee ok ok ok oe ok oe ok ok kok ok oe ok ok ok ke ok ok 


with Pax 10; 
use TEXT IO; 


package TERM 10 is 


-- To use TERM IO the standard output must be set to 
-- the terminal screen. 


-- Variable types: 


type SWITCHTYPE is (ON,OFF); 


-- Variables: 


Sven ch: SWwrmrCHTY PE; 
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-- Cursor control procedures: 


procedure MOVE CURSOR HOME; 


-- Positions the cursor to the top left position. 
procedure MOVE CURSOR UP(NUM: in integer); 
procedure MOVE CURSOR DN(NUM: in integer); 
procedure MOVE CURSOR RT(NUM :in integer); 
procedure MOVE CURSOR LT(NUM: in integer); 
procedure SET CURSOR POS(COLM,ROW : in integer); 
-- Positions cursor to the screen position (COLM, ROW) 
-- where (0,0) is the upper left corner. 
procedure GET CURSOR POS(COLM,ROW : out integer); 
-- Returns the screen position of the cursor where (0,0) 


-- is the upper left corner. 
-- Not implemented, stubbed to return (0,0). 


--Screen and line clearing procedures: 
procedure CLEAR SCREEN; 
procedure CLEAR LINE; 
procedure CLEAR CURSOR TO EOL; 
procedure CLEAR AND HOME; 


-- Clears the screen and positions the cursor to the 
-- home position. 


--Keyboard polling procedures: 
function GET KEY return character; 


function KEYPRESSED return boolean; 
-- Controls for Reverse Video Printing: 
procedure SET REVERSE(SWITCH: in SWITCHTYPE); 


procedure GET REVERSE STATUS(SWITCH : out SWITCHTYPE)}; 


40 


-- Controls for Bold Face Printing: 
procedure SET BOLD(SWITCH: in SWITCHTYPE), 


procedure GET BOLD STATUS(SWITCH : out SWITCHTY PE); 


--Graphics character printing procedures: 

-- These procedures print one graphics character 
-- and leave the cursor on that character. 
-- If graphics mode is set when the procedure is called 
-- it will remain set. Otherwise graphics mode will 
-- beset ON and OFF to print the graphics character. 

procedure PUT TOP LT CORNER; 

procedure PUT TOP RT CORNER; 

procedure PUT BOT LT CORNER; 

procedure PUT BOT OR TSGORNER; 

procedure PUT HORZ BAR; 

procedure PUT VERT BAR: 

procedure PUT CROSS; 

procedure PUT TOP TEE; 

procedure PUT BOT TEE; 

procedure PUT LT TEE; 


procedure PUT RT TEE; 


-- Graphics Drawing Procedures: 
procedure DRAW BOX(COLM,ROW :: in integer); 


-- Parameters passed are the upper left corner 
-- of the box to be drawn centered on the screen. 


procedure DRAW HORZ LINE(LENGTH : in integer); 


procedure DRAW VERT LINE(LENGTH : in integer); 


41 


private 


--These procedures are called by other procedures in TERM IO. 
-- They are not accessable to the programmer. 


procedure KEYPOLLER( KEY : out character): 


-- Implements the keyboard input method available on the 
-- terminal. 


--Graphics controlling procedures: 
procedure SET GRAPHICS(SWITCH anes Wild CHIMP E)- 


procedure GET GRAPHICS STATUS(SWITCH: out SWITCHTYPE); 


end TERM IO; 


Palate NB 
A PROGRAMMER’S GUIDE TO THE TERM IO PACKAGE 


This Appendix presents a programmer’s guide to the use of the TERM 10 
package. A programmer can use the TERM IO package to contro] the screen 
format of a serial CRT screen that uses character control codes. To use the 
TERM 10 package, first ensure that the version of TERM 10 that is used is 
compatible with the terminal type in use. The control codes of various terminal 
types may be different. 

The programmer has available in the TERM IO package a set of convenient 
procedures that can be used to improve the screen output. These procedures 
include cursor control procedures, screen and line clearing procedures, keyboard 
polling procedures, printing status control procedures, and graphics procedures. 
The complete declaration of the package specification is contained in Appendix A. 
The programmer using the package should refer to the package declaration for the 
format of the TERM IO procedure calls and the typing of the variables. 

To use the package TERM IO it must be included with each package body 
that calls a procedure in TERM IO. This is done by including the statements 


with TERN ESO: 
use TERM 10; 


at the head of the package body that calls the procedures in TERM IO. After 
this the procedures in TERM IO can be called as if they were declared in the 


package. 


Cursor Control Procedures 
The cursor control procedures can be used to position the cursor to any 

position on the serial CRT screen. The programmer can use this feature to format 
the screen to presient menues or to display results. These procedures are 

procedure MOVE CURSOR HOME; 

procedure MOVE CURSOR UP(NUM: in integer); 

procedure MOVE CURSOR DN(NUM: in integer); 

procedure MOVE CURSOR RT(NUM :in integer); 

procedure MOVE CURSOR LT(NUM.: in integer); 

procedure SET CURSOR POS(COLM,ROW : in integer): 
The procedure MOVE CURSOR HOME moves the cursor to the upper left 
position on the © screen. The procedures MOVE CURSOR UP to 
MOVE CURSOR LT allow the programmer to vary the amount of the cursor 
movement using the parameter NUM. This might be useful in applications such 
as drawing various size lines or positioning text based on the varying size of a 
figure. The procedure SET CURSOR POS(COLM,ROW : in integer) can be 
used to set the cursor position to any position on the terminal screen. A procedure 
call of SET CURSOR POS(0.0); is the equivalent of the call 


MOVE CURSOR HOME. In the original implementation the procedure 


GET CURSOR POS is not implemented. It always returns (0,0). 
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Screen and Line Clearing Procedures 
The screen and line clearing porocedures can be used to erase all or part of 

the terminal screen. This is especially in an interactive situation where the 
programmer is changing only part of the display. These procedures are 

procedure CLEAR SCREEN; 

procedure CLEAR LINE; 

procedure CLEAR CURSOR TO EOL; 
As the procedure names indicate. CLEAR SCREEN erases the entire screen, 
CLEAR LINE erases the entire line that the cursor is on, and 
CLEAR CURSOR TO EOL erases the part of the current line to the right of the 


cursor including the cursor postion. None of the screen and line clearing 


procedures change the position of the cursor. 


Keyboard Polling Procedures 
The keyboard polling procedures can be used in interactive programming to 

get input from the program user. This input can be in the form of a one character 
answer such as a menu choice or hitting a key to signal that the user is ready to 
move to the next step. The keyboard polling functions are 

function GET KEY return character: 

function KEYPRESSED return boolean: 
The function GET KEY is used to get a specific character response from the user. 


A call of 
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ANS := Cee eae 


puts the user’s answer in the variable ANS. One application of this feature is 
menu selection. The function KEYPRESSED returns true if the a key on the 
keyboard has been pressed. This can be used to allow the user to signal that he is 
ready to continue after reading instructions, for example. A simple waiting loop 


such as 


while true loop 
if KEYPRESSED then exit; end if; 


end loop; 


waits for the user to hit a key on the keyboard. 


Printing Status Control Procedures 
The procedures for control of printing status allow the programmer to specify 

bold face or reverse video printing. This can be used to emphasize the headings 
displayed or the menu choices. These procedures are 

-- Controls for Reverse Video Printing: 

procedure SET REVERSE(SWITCH : in SWITCHTYPE); 

procedure GET REVERSE STATUS(S i1GH cums (Chi yr iE). 

-- Controls for Bold Face Printing: 

procedure SET BOLD(SWITCH : in SWITCHTYPE); 

procedure GET BOLD STATUS(SWITCH : out SWITCHTYPE); 
These procedures use the variable SWITCH of type (ON,OFF) to set the bold 


face or reverse video features. The procedures GET REVERSE STATUS and 


GET BOLD STATUS allow the programmer to check the status of these 
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features in the program. A call of 
SET BOLD(ON): 

would set the output print on the terminal screen to boldface type until a call of 
SET BOLD(OFF): 


restored the print type to normal. 


Graphics Character Printing Procedures 
The graphics character printing procedures allow the programmer to design 
simple shapes and graphs in Ada for the serial CRT terminal screen. These 


procedures are 


procedure PLT TOR LT CORNER; 
procedure PUT TOP RT CORNER: 
procedure Pa “BOTeLT CORNER: 
procedure PUT BOT RT CORNER; 
procedure PUT HORZ BAR: 
procedure PUT VERT BAR: 
procedure PUT CROSS; 

procedure PUT TOP TEE: 
procedure PUT BOT TEE: 
procedure Pie LT TEE; 

proceaure PANT) RI TEE; 


These procedures each print a single graphics character on the screen at the 
current cursor location. A programmer can use these procedures to make a shape 
by positioning the cursor and printing each character at the desired screen 


location. The procedures leave the current cursor location at the location of the 
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graphics character. The programmer must reposition the cursor before each new 


character is printed. 


Graphics Drawing Procedures 
Several basic drawing procedures have been provided in addition to the 
character printing procedures. These procedures are 
procedure DRAW BOX(COLM,ROW : in integer); 
procedure DRAW HORZ LINE(LENGTH : in integer); 
procedure DRAW VERT LINE(LENGTH : in integer); 


These procedures are easier to use to draw simple shapes than the character 


printing procedures. The procedure 
DRAW BOX(COLM,ROW : in integer); 


draws a box centered on the screen with the upper left corner of the box at 
(COLM,ROW). The procedures DRAW HORIZ LINE and 
DRAW VERT LINE draw a line from the current cursor position of length 


LENG Ee 


Private Procedures 
The private procedures are not accessable to the programmer. These 


procedures are used by the other procedures in the TERM IO package. 
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Sample Menu Maker 

This procedure is an example of the use of the TERM IO package. It shows 
how a programmer might use the functions of TERM IO to write his own 
terminal interface procedures. It produces a simple menu and gets a menu 


selection from the user. 


procedure MAKE MENU(TITLE, CEiitOPr i2. OPTS. 
OPT4, ORmss: in strimg (30), 
ANS : out character); 


begin 
CLEAR SCREEN; 
MOVE CURSOR HOME; 
DRAW BOX(5.3): 
SE? CURSOR WPOs(1s.7): 
SET BOLD(ON): 
ie le Ee 
Se sBOLD(ORFE).- 
SET CURSOR POS(15,10); 
PUL): 
put(OPT1): 
Sa ee liroOhwOS( 15,12); 
put("B. "): 
put(OPT2): 
SET CURSOR POS(15,14); 
put ten: 
put(OPT3): 
SET CURSOR POS(15,16); 
rensten (1D) By 
put(OPT4): 
SET CURSOR POS(15,18); 
put("E. iy 
put(OPT5); 
SE deen Owe O5(5.23): 
put("Enter letter of choice. A - E:"): 
while true loop 
ANS := GET KEY: 
case ANS is 
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when ’A’a’B|*b|’C]|‘c| Dj d] Ee => exit: 
when others => null; 
end case; 
end loop: 
end: 

This procedure constructs a standard menu on the screen. It draws a border, 
prints the menu title in boldface, presents five menu choices and waits for the user 
to respond. The menu title and options can be strings up to 30 characters long. 
The procedure MAKE MENU shows how the programmer can use the TERM 10 
package to format the screen output and control the movement of the cursor. 
When called in a program the procedure MAKE MENU allows the programmer 
to set up the menu and get the user choice with as little code as possible. The 
result in the program is very clear and concise. A procedure call of 

MAKE MENU("Project Title". 
“Run Program 
"Show Listing", 
"Set Options", 
"Get More Information", 
"Exit To System" 
ANS); 

is all that is required to print the menu, wait for the user choice, and return the 


choice to the program. 
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APPENDIX C 


TERM IO PACKAGE BODY 


nO RE RR KR RR ERR OK OK KKK 


=) WILE: ADA TERMINAL INTERFACE 


-- MODULE NAME: TERM IO BODY 
-- DATE CREATED: 06 MAR 87 
-- LAST MODIFIED: 15 MAY 87 


-- AUTHOR: LT Anthony J. Keough 


-- DESCRIPTION: This package body implements the 
-- TERM IO package for the VT - 100 terminal 
-- using the ANSI control code sequences. 


a KO FH RK KO RK OR OR RRR RK ERK KK KK KKK KKK KK KK KK KKK XK 
with TEXT IO; 

use TEXT [O; 

package body TERM I[O is 

-- Terminal parameters: 


SCREEN LENGTH : constant := 76; 
SCREEN HEIGHT : constant := 24; 


-- ANSI Control code sequences 


CURS@f constant string = (ASCIIESC,}*2°.’J’): 
HiNeeeconstant string -= (ASCII_ESC,’|’,’f’): 

ONie@ vines constant string -= {ASCII.ESC,’|’,’7’,’m’); 
OFFRYVRS : constant string := (ASCIIESC,’|’.’0’,'m’); 
UPCRSR : constant string := (ASCII.ESC,’|’,1’,’A’); 
DNCRSR : constant string := (ASCII.ESC,’|’,’1’,’B’); 
RUCRen. constant string -= (ASCILESC,’)’,’1’,C)): 
Pi Gitsiesconstant string -— {ASCIILESC,’|’,1',D’); 
CLREOL : constant string := (ASCII.ESC,’|’,’K’); 
CLEHENE < constant string := (ASCII.ESC,’ ’,’2’,’K’); 
ONGRAF : constant string := (ASCII-ESC,’(’,’0°); 
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OFFGRAF : constant string = (ASCIPESC. |(b i, 
ONBOLD ; constant strimg -— (ASCILMS€. 771 vine). 
OFFBOLD : constant string := (ASCII.ESC.’|’,’0’,’m’); 


-- VT - 100 Terminal Graphics Characters: 
-- These characters print as graphics characters 
== when the terminal is in the graphics mode. 


UPLTCR : constant character := ’)’: 

UPRTCR : constant character := ’k’; 
DNLICKE : constant;claracter:— tn. 
DNRTCR = constant character :-—s)j- 
HORZBR : constant character := ’q’; 
VERTBR : constant character := ’x’; 
CRSS : constant character := ’n’; 

UPTEE : constant character := ’w’: 
DNTEE : constant character := ’ 
LTTEE : constant character := ’t’; 
RYTEE ;sconstant character... 4- 


’ 


— 


’ 


II 
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-- Terminal Status Variables: 


REVERSE STAT : SWITCHTYPE := OFF: 
BOLD STAT : SWITCHTYPE := OFF; 
GRAF STAT : SWITCHTYPE := OFF: 


-- Other variables: 
NUM : integer; 


-- Cursor Control Procedures: 


procedure MOVE CURSOR HOME is 
-- Positions the cursor to the top left position. 


begin 
put(HME); 


end; 


procedure MOVE CURSOR UP(NUM: in integer) is 


begin 
for Tin 1..NUM loop 
put(UPCRSR); 
end loop; 
end; 


o2 


procedure MOVE CURSOR DN(NUM.: in integer) is 


begin 
for Jin 1..NUM loop 
put(DNCRSR); 
end loop; 
end; 


procedure MOVE CURSOR RT(NUM: in integer) is 


begin 
for J in 1..NUM loop 
put(RTCRSR); 
end loop; 
end; 


procedure MOVE CURSOR LT(NUM: in integer) is 


begin 
for Tin 1..NUM loop 
put(LTCRSR); 
end loop; 
end; 


procedure MOVE CURSOR POS(COLM,ROW : in integer) is 


begin 
put(HME): 
for lin 1..COLM loop 
put(RTCRSR): 
end loop; 
for Jin 1..ROW loop 
put(DNCRSR); 
end loop; 
end; 
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procedure GET CURSOR POS(COLM,ROW : out integer) is 


-- This procedure is not implemented. 

-- To use this procedure a hardware specific 

-- call must be written for the procedure body. 
-- | The procedure only returns (0,0). 


begin 
COLUM 20; 
ROW == 0: 
end; 
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-- Screen and Line Clearing Procedures: 
procedure CLEAR SCREEN is 
begin 


put(CLRSCR); 


end: 


procedure CLEAR LINE is 
begin 
put{CLRLNE); 


end; 


procedure CLEAR CURSOR TO EOL is 
begin 
put(CLREOL); 


end; 
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-- Keyboard Input Procedures: 


function GET KEY return character is 
-- Gets a single character input form the user. 
KEY : character; 


begin 


KEYPOLLER(KEY): 
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return KEY; 
end: 


function KEYPRESSED return boolean is 


-- Returns true when the user has entered a key. 


KEY : character: 


begin 
KEY POLLER(KEY); 
return TRUE; 

end; 


procedure KEYPOLLER(KEY : out character) is 


--This procedure can be modified to eliminate the 
-- need for carriage returns by providing a 
-- system specific keyboard polling routine. 


begin 
get(KEY); 
end KEYPOLLER; 


-- Printing Status Control Procedures: 


procedure SET REVERSE(SWITCH : in SWITCHTYPE) is 


begin 

if SWITCH = ON then 
REVERSE STAT := ON; 
put(ONRVRS); 

elsif SWITCH = OFF then 
REVERSE STAT := OFF; 
put(OFFRVRS); 

end if; 


end; 


procedure GET REVERSE STATUS(SWITCH : out SWITCHTYPE) is 


begin 
SWITCH := REVERSE STAT; 
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end; 


procedure SET BOLD(SWITCH : in SWITCHTYPE) is 


begin 

if SWITCH = ON then 
BOLD STAT := ON; 
put(ONBOLD); 

elsif SWITCH = OFF then 
BOLD STAT := OFF; 
put(OFFBOLD); 

end if; 


end; 


procedure GET BOLD STATUS(SWITCH : out SWITCHTYPE) is 


begin 
SWITCH := BOLD STAT; 


end; 


procedure SET GRAPHICS(SWITCH : in SWITCHTYPE) is 
-- Private Procedure 


begin 

if SWITCH = ON then 
GRAF STAT := ON; 
put(ONGRAF),; 

elsif SWITCH = OFF then 
GRAF STAT := OFF; 
put(OFFGRAF); 

end if; 


end; 


procedure GET GRAPHICS STATUS(SWITCH : out SWITCHTYPE) is 
-- Private Procedure 


begin 
SWITCH =" GRAF STAT: 


end. 


96 


-- Graphics Printing Procedures 


procedure PUT TOP LT CORNER 1s 


begin 
GET GRAPHICS STATUS(SWITCH); 
if SWITCH = ON then 
put(UPLTCR): 

MOVE CURSOR LT(1); 
elsif SWITCH = OFF then 
SET GRAPHICS(ON); 

put(UPLTCR); 

MOVE CURSOR LT(1); 

SET GRAPHICS(OFF): 
end if; 


end; 


procedure PUT TOP RT CORNER is 


begin 
GET GRAPHICS STATUS(SWITCH); 
if SWITCH = ON then 
puci CPR ECR): 

MOVE CURSOR LT(1); 
elsif SWITCH = OFF then 
SET GRAPHICS(ON); 

put(LUPRTCR): 

MOVE CURSOR LT(1); 

SET GRAPHICS(OFF); 
end if: 


end; 


procedure PUT BOT LT CORNER is 


begin 
GET GRAPHICS STATUS(SWITCH); 
if SWITCH = ON then 
put(DNLTCR): 

MOVE CURSOR LT(1); 
elsif SWITCH = OFF then 
SET GRAPHICS(ON).: 

put{DNLTCR): 

MOVE CURSOR LT(1); 

SET GRAPHICS(OFF); 
end if; 


end: 
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procedure PUT BOT RT CORNER is 


begin 
GET GRAPHICS STATUS(SWITCH); 
if SWITCH = ON then 
put(DNRTCR); 

MOVE CURSOR LT(1); 
elsif SWITCH = OFF then 
SET GRAPHICS(ON); 

put(DNRTCR); 

MOVE CURSOR LT(1); 

SER IGRARHICS OnE): 
end if; 


end; 


procedure PUT HORZ BAR is 


begin 
GET GRAPHICS STATUS(SWITCH), 
if SWITCH = ON then 
put(HORZBR); 

MOVES CURSOR ain), 
elsif SWITCH = OFF then 
SET GRAPHICS(ON); 

put(HORZBR); 

MOVE CURSOR LT(1); 

SET GRAPHICS(OFF); 
end if: 


end; 


procedure PUT VERT BAR is 


begin 
GET GRAPHICS STATUS(SWITCH); 
if SWITCH = ON then 
put(VERTBR); 

MOVE CURSOR LT(1); 
elsif SWITCH = OFF then 
SET GRAPHICS(ON); 

put(VERTBR); 

MOVE CURSOR LT(1); 

SET GRAPHICS(OFP); 
end if; 


end; 
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procedure PUT CROSS is 


begin 
GET GRAPHICS STATUS(SWITCH); 
if SWITCH = ON then 
put(CRSS): 

MOVE CURSOR LT(1); 
elsif SWITCH = OFF then 
SET GRAPHICS(ON)}; 

put(CRSS); 

MOVE CURSOR LT(1); 

SET GRAPHICS(OFF); 
end if; 


end; 


procedure PUT TOP TEE its 


begin 
GEP GRAPHICS STATUS{(SWITCH): 
if SWITCH = ON then 
puivor LEE): 

MOVE CURSOR LT(1); 
elsif SWITCH = OFF then 
SET GRAPHICS(ON); 

put(UPTEE): 

MOVE CURSOR LT(1); 

eET GRAPHICS(OFF); 
end if: 


end: 


procedure PUT BOT TEE is 


begin 
GET GRAPHICS STATUS(SWITCH); 
io yv1TCH = ON then 
put(DNTEE); 

MOVE CURSOR LT(1); 
elsif SWITCH = OFF then 
SET GRAPHICS(ON); 

put(DNTEE); 

MOVE CURSOR LT(1); 

SET eGRAPHICS(OFF); 
end if. 


end: 
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procedure PUT LT TEE is 


begin 
GET GRAPHICS STATUS(SWITCH); 
if SWITCH = ON then 
put(LTTEE); 

MOVE CURSOR LT(1); 
elsif SWITCH = OFF then 
SET GRAPHICS(ON); 

put(LTTEE): 

MOVE CURSOR LT(1); 

SET GRAPHICS(OFF); 
end if; 


end; 


procedure PUT RT TEE is 


begin 
GET GRAPHICS STATUS(SWITCH); 
if SWITCH = ON then 
put(RTTEE); 

MOVE CURSOR LT(1); 
elsif SWITCH = OFF then 
SET GRAPHICS(ON); 

put(RTTEE); 
MOVE CURSOR LT(1); 
SET GRAPHICS(OFF); 
end if; 
end: 
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procedure DRAW BOX(COLM,ROW : in integer) is 


-- Draws a box centered on the screen with the upper 


-- left corner of the box at position (COLM, ROW) 


begin 

CLEAR SCREEN; 

SET GRAPHICS(ON); 

MOVE CURSOR POS(COLM, ROW); 

put(UPLTCR); 

for lin COLM..(SCREEN LENGTH - COLM - 2) loop 
put(HORZBR). 7 

end loop: 

put(UPRTCR); 

MOVE CURSOR. DN(1); 

MOVE CURSOR LT(1); 

for lin ROW..(SCREEN HEIGHT - ROW - 2) loop 
put(VERTBR); - 
MOVE CURSOR DN(1); 
MOVE CURSOR LT(1); 

end loop: - 

put(DNRTCR); 

MOVE CURSOR LT(2): 

for lin COLM..(SCREEN LENGTH - COLM - 2) loop 
put(HORZBR), 
MOVETEURSOR LT(2); 

end loop: 

put(DNLTCR); 

MOVE CURSOR UP(1): 

MOVE CURSOR LT(1): 

for lin ROW..(SCREEN HEIGHT - ROW - 2) loop 
put(VERTBR); 
MOVE CURSOR UP(1); 
MOVE CURSOR LT(1); 

end loop; 

SET GRAPHICS(OFF); 


end; 
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procedure DRAW HORZ LINE(LENGTH : in integer) is 


begin 
SET GRAPHICS(ON); 
put(LTTEE); 
for I in 2.. LENGTH loop 
put(HORZBR); 
end loop; 
SET GRAPHICS(OFF |: 


end; 


procedure DRAW VERT LINE(LENGTH.: in integer) is 


begin 
SET GRAPHICS(ON); 
put(DNTEE); 
MOVE CURSOR LT(1); 
MOVE CURSOR UP(1); 
for [in 2.. LENGTH loop 
put( VERTBR); 
MOVE CURSOR LT(1); 
MOVE CURSOR UP{(1); 
end loop; 
SET GRAPHICS(OFF); 


end; 


end TERM IO; 
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APPENDIX D 


ANSI STANDARD AND VT - 52 TERMINAL CONTROL CODE SEQUENCES 


Function ANSI Terminal! VT - 52 Terminal 
Cursor Up ESC [ Pn A ESC A 
Cursor Down ESC [ Pn B ESC B 
Cursor Right ESC [ Pn C ESC.€ 
Cursor Left ESC [ Pn D ESC D 

Home Cursor ESC fon ESC H 
Position Cursor Es (Phe Pee h ESC Pl] Pe 
Reverse Video On Boe | -7. im - 
Reverse Video Off ESC [ Om ~ 

Bold Face On ESC [1m - 

Bold Face Off ESC [Om - 
Graphics On ESC ( 0 ESC F 
Graphics Off ESC CB ESC G 
Clear Screen Esc [ 2 J - 

Clear Line FOG af. 2 0K - 

Clear To End of Line EOC aia ESC K 
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APPENDIX E 


MODIFICATIONS TO THE ADAMEASURE USER INTERFACE 


The package TERM IO was applied to the AdaMeasure program to illustrate 
the use of the package and the benefits of the package in the areas of readibility 
and ease of use. The modified section of the AdaMeasure package 
MENU DISPLAY is presented, followed by the original package. It should be 
apparent that using the TERM IO package made the job of coding the user 


interface faster and easier. 


Modified Package MENU DISPLAY 

The TERM IO package was used to modify the MENU DISPLAY package. 
The MAKE MENU procedure presented in Appendix B was used to modify the 
procedure MENU, illustrating how a standard menu procedure can be employed. 
The procedure INITIAL MENU was modified using the TERM IO functions 


directly for a ‘custom design’ interface. 


with GENERAL DATA, HALSTEAD DISPLAY, INITIAL DISPLAY, DISPLAY SUPPORT, 
GLOBAL PARSER, GLOBAL, TEXT IO, TERM IO; 

use GENERAL DATA, HALSTEAD DISPLAY, INITIAL DISPEAY, DISPLAY SUPEOKT 
GLOBAL PARSER, GLOBAL, ie ke IO, TERM IO; 


package MENU DISPLAY is 


procedure MENU; 
procedure INITIAL MENU; 
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end MENU DISPLAY; 
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package body MENU DISPLAY is 


-- this procedure displays the metric selection menu from which the user 
-- can make the appropriate selection. 
procedure MENU is 


begin 
MAKE MENU("METRIC SELECTION MENU", 
MHALSTEAD’ METRIC", 
"COMMENT AND NESTING METRIC", 
WHENRY AND K&AFURA METRIC", 
"EXIT TO MAIN MENU", 
'PeXIT TO SYSTEN", 
ANS): 
case ANS is 
when ’A’ => HALSTEAD; 
when ’B’ => VIEW GENERAL; 
when ’C' => VIEW HENRY: 
when ’D’ => DONE := TRUE: 
when 'E” => raise QUIT TO OS; 
end case: 7 
end loop: 
end MENU: 
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-- this procedure displays the main selection menu which allows the user 
-- to choose to parse a file. view previously gathered data. or quit to 
-- the operating system. 

procedure INITIAL MENU is 


begin 
INTRODUCTION; 
CLEAR SCREEN; 
MOVE CURSOR HOME; 
DRAW BOX(6.4); 
SEE CURSOR POS(20-7); 
SET BOLD(ON); 
put("Main Selection Menu"); 
SET BOLD(OFF): 
Seige UR SOR POS(12,9); 
put("1. "); 
put('Parse an input file"): 
Si “CURSOR POS(12,12); 
put("2. "); 
put("View Previously Gathered Data"): 
SET CURSOR POS(12.15): 


put oon we 

put("Exit to operating System"); 
SET CURSOR POS(6,22); 
put('"'Enter number of choice:"); 
while true loop 


ANS := GET _KEY; 


case ANS is 
when 1°,’2,3° => exit 
when others => SET CURSOR POS(29,22); 
CLEAR CURSOR TO EOL; 
end case; 
end loop; 
case ANS is 


when *1’ => RESET PARAMETERS; 
NTA SOR EIN, 
MENU; 
when ’2’? => MENU; 
when ’3’ => raise QUIT TO OS; 
end case; => 


end INITIAL MENU; 


end MENU DISPLAY: 


Original Package MENU DISPLAY 

In the original package menu display the difficulties that the programmers 
had with the screen output are apparent. The programmers were required to 
specify the character for each screen loacation. This leads to the clumbsy repeated 
put and new line calls. Even the spaces between the lines have to be printed in 
order to print the border. The asterisk symbol was used to put the border around 


the menu selections. The code is difficult to write and even harder to read. 


with GENERAL DATA, HALSTEAD DISPLAY, INITIAL DISPLAY, DISPLAY SUPPORT, 
GLOBAL PARSER, GLOBAL, TEXT 10; 

use GENERAL DATA, HALSTEAD DISPLAY, INITIAL DISPLAY, DISPLAY SUPPORT, 
GLOBAL PARSER, GLOBAL, TEXT 10: 


package MENU DISPLAY is 
procedure MENU; 
procedure INITIAL MENU; 
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end MENU DISPLAY: 


eee es ee eee ce = SSF SSF SSO eS8 Gee S888 S2eEeEee See @2 Se eZ ee ee 8 Se Se eee ee eee ew ee ew ee eee see ewe eee es = 
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package body MENU_ DISPLAY is 


-- this procedure displays the metric selection menu from which the user 
-- can make the appropriate selection. 

procedure MENU is 
DONE : boolean := FALSE; 


begin 
while not DONE loop 

CLEARSCREEN; 
new line; 
Ong tebe eee = ROARS THERA EES ST Se ee EA Ree Eee eT) 
Pt ete AR SE AH) new line; 
put("* my; 
put(" *"); new line; 
put("* METRIC SELECTION MENU ue 
put(" Siew aline, 
Pa "5 
put(" *"); new line; 
put HERE ARE THE INFORMATION CHOICES AVAILABLE"); 
pune lO YOU *"); new line; 
pace - "). 
put(" *"): new line; 
put(''* Simply enter the number of your choice"); 
put(" *"): new line; 
put(™” "); 
put(" *")- new line; 
put(""* 1 - ‘HALSTEAD’ METRIC INFORMATION tt). 
put(" *"); newline; 
put("* "); 
put(" *")- new line; 
put("* 2- COMMENT AND NESTING METRIC INFORMATION"); 
put(" *"); new line; 
ile We 
put("" *t); new line; 
put("* 3 - HENRY and KAFURA’ METRIC INFORMATION "); 
put(" *")- new line: 
put("* - i"). 
put(" ="); new line; 
put("'* 4- EXIT TO MAIN MENU BA 
put(" *"); new line; 
put? = = i). 
put(" ="), new line; 
put("* 5 - EXIT TO OPERATING SYSTEM Hae 
put(" *"): new line; 
put("'* n"). 
put(" *"); new line; 
PTE ae es ia SEES SEF RA STATES ea ses + s+ + IT). 
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[NER ROE eS ewan (2) 


put 
put| “Choices; 
get(ANSWER); 
get lineEDUMMY FILE NAME, LENGTH OF LINE):-- flush system input buffer 
new line(2); 
case ANSWER is 
when ’1’ => HALSTEAD; 
when ’2? => VIEW GENERAL, 
when ’3’ => VIEW HENRY: 
when ’4”’ => DONE := TRUE; 
when ’5’ => raise QUIT TO OS; 
when others => null; 
end case; 
end loop; 
end MENU; 


’ 


-- this procedure displays the main selection menu which allows the user 
-- to choose to parse a file, view previously gathered data, or quit to 
-- the operating system. 
procedure INITIAL MENU is 
DONE : boolean := FALSE; 
begin 
INTRODUCTION, 
while not DONE loop 
CLEARSCREEN: 


new line; 
pug (ee ee ee ee aa ee eee 
3 


* kk OK : 
putin os ok ae oo a oR ok ko ok OF *")- new line: 


puc(''* ie 

put(" *"); new line; 

put("* MAIN SELECTION MENU my. 
put(" *")- new line; 

pica. - Dy. 

putt *"); new line; 

put: HERE ARE THE ACTION CHOICES AVAILABLE TO "); 
put("YOU *""); new line; 

put("* - "). 

put(" *"): new line; 

put("* Simply enter the number of your choice"); 
put(" *"); new line, 

putt it). 


put(" *"); new line; 

put("* 1 - PARSE AN INPUT FILE n). 

put(" “"); new line; 

putt 1). 

put(" *"); new line; 

put("* 2- VIEW PREVIOUSLY GATHERED DATA ie 
put(" *"); new line; 

pute I"). 

put(" *“"); new line; 
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put("* 3 - EXIT TO OPERATING SYSTEM Ne 


put(" *"); new line; 
put("* Ae 
put(" *"); new line; 


Punt aaa a eS RE eA ke es ee 
2 


put 
put("Choice = "); 
get( ANSWER); 
get line( DUMMY FILE NAME, LENGTH OF LINE);-- flush system input buffer 
new line(2); 
case ANSWER is 
when ’1’? => RESET PARAMETERS; 
INITIAL SCREEN; 
MENU; | 
when ’2? => MENU; 
when ’3’ => raise QUIT TO OS; 
when others => null; 
end case; 
end loop; 
end INITIAL MENU; 


(ieee = Soa eR ee ee new line(2); 
; ae } 


end MENU DISPLAY; 
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